(sregex--char-aux): Use `mapc' rather than `mapcar'.

diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el
index 901156cefc3336109d64c98f65f0fc644ab439c4..d4deb0f910192b5552329e408489c7b497cbceed 100644 (file)
--- a/lisp/emacs-lisp/sregex.el
+++ b/lisp/emacs-lisp/sregex.el
@@ -565,7 +565,7 @@ has one of the following forms:
   (let ((chars (make-bool-vector 256 nil))) ; Yeah, right!
     (dolist (arg args)
       (cond ((integerp arg) (aset chars arg t))
-           ((stringp arg) (mapcar (lambda (c) (aset chars c t)) arg))
+           ((stringp arg) (mapc (lambda (c) (aset chars c t)) arg))
            ((consp arg)
             (let ((start (car arg))
                   (end (cdr arg)))